(Fmake_temp_name) [MS-DOS]: Allow upto 8 characters in

the prefix of the temporary file name.

diff --git a/src/fileio.c b/src/fileio.c
index ec7d710cd3609327ce469cee1091886bb51f2fd5..f138e6e458e1e67a9864f51bce2110b23b4c7036 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -714,7 +714,13 @@ so there is no danger of generating a name being used by another process.")
      Lisp_Object prefix;
 {
   Lisp_Object val;
+#ifdef MSDOS
+  /* Don't use too much characters of the restricted 8+3 DOS
+     filename space.  */
+  val = concat2 (prefix, build_string (".XXX"));
+#else
   val = concat2 (prefix, build_string ("XXXXXX"));
+#endif
   mktemp (XSTRING (val)->data);
   return val;
 }